10 REM *** PROGRAMM ZUM KORRIGIEREN
11 REM *** DES FEHLERS BEI PROFI-ASS
12 REM *** UMWANDLUNG ASCII->HEX
13 REM *** BEISPIEL: LDA 1264 WIRD
14 REM *** ASSEMBLIERT ZU LDA 1265
15 REM
16 REM *** (C) NIKOLAUS HEUSLER
17 REM *** 1107862329H
18 REM *** 2509921553H
19 REM *** VORHER PROFI-ASS LADEN !
20 REM *** FUER PROFI-ASS VERSIONEN
21 REM *** AB $9000
22 REM *** FEHLER: ZWISCHEN $945C UND
23 REM *** $945D FEHLT CLC
24 REM
25 REM -------------------------------
100 IFPEEK(56)>144THENPRINT"[147]ADRESSE 56 AENDERN, DANN NEUSTART!":END
110 IFPEEK(37980)=76THENPRINT"[147]GEPATCHTE VERSION SCHON IM SPEICHER!":GOTO170
120 IFPEEK(37980)<>8THENPRINT"[147]ERST PROFI-ASS V1 LADEN!":END
130 POKE37980,76:POKE37981,87:POKE37982,144
140 READM:IFM=>.THENPOKE36949+I,M:I=I+1:GOTO140
150 DATA13,,8,24,101,76,76,95,148,-1
160 PRINT"[147]PATCH ERFOLGREICH.
170 [153]"SPEICHERN MIT:
180 PRINT"POKE 56,144:POKE 45,0:NEW
190 [153]"POKE 43,0:POKE 44,144:POKE 46,160
200 PRINT"SAVE"CHR$(34)"PROFI-ASS"CHR$(34)",8
210 [153]"SYS 64738
220 POKE198,5:POKE631,19:POKE632,17:POKE633,17:POKE634,17:POKE635,17